10 POKE53280,.:POKE53281,.
100 PRINT"[147] [154]UNIVERSAL BASE CONVERTER - ART SKILES":ER$="^^?"
110 N$="":INPUT "NUMERAL TO CONVERT";N$:IF N$="" THEN END
120 INPUT"  FROM BASE (2-36)";F:IF F<2 OR F>36 THEN PRINT TAB(20);ER$:GOTO 120
130 INPUT"    TO BASE (2-36)";T:IF T<2 OR T>36 THEN PRINT TAB(20);ER$:GOTO 130
140 X=0:FOR Z=1 TO LEN(N$):A=ASC(MID$(N$,Z,1))
150 B=A+48*(A>47 AND A<58)+55*(A>64 AND A<91)+85*(A>96 AND A<123)
160 IF B>=F THEN PRINT "ERROR IN NUMERAL TO CONVERT!":GOTO 110
170 X=X*F+B:NEXT Z:CN$=""
180 B=X-INT(X/T)*T:X=(X-B)/T
190 A=B-48*(B<10)-55*(B>9)
200 CN$=CHR$(A)+CN$:IF X THEN 180
210 PRINT " CONVERTED NUMERAL: ";CN$
220 PRINT"PRESS SPACE TO CONVERT ANOTHER OR"
230 PRINT"Q TO QUIT."
240 A=PEEK(203):IFA<>60ANDA<>62THEN240
250 IFA=60THENRUN
255 D=PEEK(186):IFD<8THEND=8
260 PRINT"[147][144]LOAD"CHR$(34)"B.TIPS AND TRICK"CHR$(34)","D
270 PRINT"RUN"
280 POKE631,13:POKE632,13:POKE198,2:END
10000 D=PEEK(186):N$="BASE CONVERTER":OPEN15,D,15,"S0:"+N$:CLOSE15:SAVEN$,D:END